00010	C******   CHANGE 3, 4 AND 5 TO JFCL IN DDT WHEN USING DISTORTION.(SEE 'LINES')
00100		SUBROUTINE FILLMS(L,IDAT,RJB,CENTR,RJF,RJG)
00110		COMMON/DPY/ST(4000),WDS(250),MEDIT,IGO/DL/IXRX,SAVER,NAME
00120		COMMON/DST/BB,CC/FLM/X(200),Y(200),NX(200)
00200		DIMENSION IDAT(1)
00220		COMMON/PLTR/IPLT,RHT,DIS/LL/LL/STF/RR(8),RSTJC
00225		DATA MP/2/,MD/6/
00227	C MD=DISPLAY   MP=PLOTTER   MX=XGP
00230		DX=DIS
00240		RX=RHT
00270		D=RSTJC*RJF
00280		R=RSTJC*RJG
00400	4	GO TO 1
00450		C=CC
00460		B=BB
00500	C  SAVES IT.  IT WILL RETURN LATER.
00525		BB=B/DIS
00550		CC=1000
00600	1	KK=0
00700		DO 205 J=1,L
00800		CALL UNPACK(M,N,IDAT(J))
00900		KK=KK+1
01000		NX(KK)=0
01100		IF(LL.EQ.3)NX(KK)=3
01200		X(KK)=ROFF((RJB+D*M)*DIS)
01300		Y(KK)=ROFF((CENTR+R*N)*RHT)
01310	3	GO TO 205
01320		Y(KK)=Y(KK)*(C-BB*(ABS(X(KK))))
01330	C  FOR DISTORTION
01340	205	CONTINUE
01400		NX(1)=KK
01410		DIS=1.0
01420		RHT=DIS
01500		M=MD
01600		IF(IPLT)M=MP-IXRX
01650	C  STOPS DISTORTION IN 'LINES'
01700	2	CALL FILLER(X,Y,NX,M)
01710		DIS=DX
01720		RHT=RX
01730	5	RETURN
01740	C  NEXT TO RESET DISTORTION FACT.
01745		BB=B
01750		CC=C
01760		RETURN
01800		END
01900	
02000		SUBROUTINE ROTATE(I,L,DEG)
02100		DIMENSION I(1)
02200		N=I(L)
02280		KNT=501
02285	C  ROTATED DATA IS PUT BACK STARTING AT LOCATION 501.
02290		I(KNT)=N
02300		DO 1 K=L+1,N+L-1
02400		CALL UNPACK(J,M,I(K))
02420		X=J
02440		Y=M
02460		JJ=I(K)/100000000
02500		AX=ATAN2(X,Y)*57.29578
02600		HYP=SQRT(X**2+Y**2)
02700		ROT=DEG+AX
02800		J=HYP*COSD(ROT)
02900		M=HYP*SIND(ROT)
03000		KNT=KNT+1
03100		IF(J)J=1000-J
03200		IF(M)M=1000-M
03500	1	I(KNT)=M*10000+J+JJ*100000000
03600		L=501
03700		END